00100	; ****** BYTE *******   GETS AND STORES 18-BIT NUMBERS.
00200	TITLE BYTE
00300		INTERNAL UNPACK,IPACK
00320	
00500	; CALL UNPACK(IBOT1(K),JR,JL)
00600	UNPACK:	0
00680		HRRE 1,@(16)	; GET RIGHT HALF
00690	;;	FSC  1,233	; FLOAT IT
00700		MOVEM 1,@1(16)
00720		HLRE 1,@(16)	; GET LEFT HALF
00725	;;	FSC  1,233	; FLOAT IT
00740		MOVEM 1,@2(16)
00760		JRA  16,3(16)
01400	
01500	;K=IPACK(NL,NR)   REPACK TWO HALF WORDS.
01600	IPACK:	0
01700		HRL @(16)
01800		HRR @1(16)
01850		MOVEM 0,@(16)
01900		JRA 16,2(16)
01950	
11100	END